home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 16 / CU Amiga Magazine's Super CD-ROM 16 (1997-10-16)(EMAP Images)(GB)[!][issue 1997-11].iso / CUCD / Sound / mpega_player / player-setup / Player-Setup next >
Text File  |  1997-08-23  |  18KB  |  392 lines
  1. ;***************************************************************************
  2. ; * $VER: Player-Setup for PlayMP2.rexx/dopus5 & PlayerMP2.rexx/dopus5 2.1a
  3. ; * Script written by Eckhard Ludwig
  4. ;***************************************************************************
  5.  
  6. (set current_version "2.1a")
  7. (set lng @language)
  8. ;****************************************************************************
  9.  
  10. (set #intro1 (cat "\n\Player-Setup " current_version "\n************************\n© 1997, Eckhard Ludwig"))
  11.  
  12. ;***************************************************************************
  13. ; deutsche Texte                               *****************************
  14. ;***************************************************************************
  15.  
  16. (if (= lng "deutsch")
  17. (
  18. (set PrefsPrompt        "Willkommen zum Konfigurationsprogramm für die MPEG Audio Layer 2&3 Wiedergabe über DOpus5 und Amigaguide.\n\nSie können die gewünschte MPEG-Karte, Soundkarte oder Amigaaudio auswählen.\n\nWeiter werden die Pfade zu den Playerprogrammen gesetzt, wenn diese nicht dem Standard entsprechen.")
  19. (set PlayHifiPrompt     "\nEs ist bereits eine Konfigurationsdatei für PlayMP2.rexx/dopus5 bzw. PlayerMP2.rexx/dopus5 vorhanden.\n\nSollen die alten Einstellungen übernommen werden?\n\nMit 'Nein' setzen sie die Konfiguration fort.")
  20.  
  21. (set MPEGPlayPrompt     "Zur Wiedergabe über die Soundkarte Melody, über die MPEG-Karte Peggy-Plus und über das CD32 FMV-Modul wird der Player MPEGPlay (© 1997 by Thorsten Hansen) benutzt. Bitte wählen Sie die Schublade, wo MPEGPlay installiert wurde, oder 'Weiter' !")
  22. (set MPEGPlayERROR      "\nMPEGPlay ist nicht oder unter einen abweichenden Namen installiert, oder die gewählte Schublade ist falsch !\n\nSoll ich die Voreinstellung \"C:MPEGPlay\" benutzen, falls sie MPEGPlay noch nicht installiert haben?\n\nMit 'Nein' können sie erneut eine Schublade auswählen.")
  23.  
  24. (set PlayMPEGAPrompt     "Zur MPEG Wiedergabe über Amigaaudio und AHI audio system V4.14+ wird der Player MPEGA ab V3.0 by Stephane TAVENARD benutzt. Bitte wählen Sie die für ihren Amiga geeignete Version von MPEGA aus, oder 'Weiter' !")
  25. (set PlayMPEGAERROR      "\nMPEGA ist nicht unter dem gewählten Namen installiert, oder die gewählte Schublade ist falsch!\n\nSoll ich die Voreinstellung benutzen, falls sie MPEGA noch nicht installiert haben?\n\nMit 'Nein' können sie erneut den Pfad auswählen.\n\nVoreinstellung: ")
  26.  
  27. (set BREAKPrompt        "Das Tool BreakName (© 1994 by Kai Iske, Public Domain) wird benutzt, um die Soundwiedergabe über MPEGA vorzeitig abzubrechen. Bitte wählen Sie die Schublade aus, wo BreakName installiert wurde, oder Weiter!")
  28. (set BREAKERROR         "\n'BreakName' ist nicht installiert, oder der gewählte Dateipfad ist falsch!\n\nSoll ich die Voreinstellung \"C:BreakName\" benutzen, falls sie das Tool noch nicht installiert haben ?\n\nMit 'Nein' können sie erneut eine Schublade auswählen.")
  29.  
  30. (set PlayerPrompt       "Wählen sie die verfügbare Soundkarte aus.\nWeitere Informationen sind unter Hilfe verfügbar.")
  31. (set PlayerHelp         (cat
  32.             "MPEG Audiowiedergabe (Format Layer 2) wird direkt von den Karten Melody und Peggyplus, sowie von CD32 mit FMV-Modul unterstützt.\nDie MPEG-Karte MELODY unterstützt zusätzlich Layer3 unter Verwendung von MPEGA und AHI.\n\nDas CD32 und Peggy-Plus MPEGPlay benötigen den Player MPEGPlay by Thorsten Hansen."
  33.             "\nDie weiteren Soundkarten sowie Layer 3 Audiodateien benötigen den Player MPEGA V3.0+ by Stephane TAVENARD und AHI V4.14+ by Martin Blom (ausser AMIGA Paula).\n\nBei Auswahl einer für Layer3 ungeeigneten MPEG-Karte, erfolgt im nächsten Schritt die Auswahl einer weiteren Soundkarte bzw. Amigaaudio für die Layer3-Wiedergabe."
  34.     ))
  35. (set #t_oldinstaller    (cat
  36.             "Die benutzte Version des Programmes Installer ist leider zu alt!"
  37.             " Benötigt wird Version 43.3 oder neuer. Die Konfiguration kann"
  38.             " fortgesetzt werden, es können allerdings Fehler auftreten!"
  39.     ))
  40. (set #t_oldinstallerhelp (cat
  41.             " Die aktuelle Version des Installers findest du im AMINET im util/misc Directory."
  42.             " Der aktuelle File Name ist \"Installer-43_3.lha\":\n"
  43.             " <URL:ftp://ftp.germany.aminet.org/pub/aminet/util/misc/Installer-43_3.lha"
  44.     ))
  45.  
  46. (set PlayerL3Prompt     "Wählen sie für Layer3 die geeignete Soundkarte aus.\nWeitere Informationen sind unter Hilfe verfügbar.")
  47. (set PlayerL3Help       "\nMPEG Audiowiedergabe (Format Layer 3) benötigen den AHI Treiber (Ausser AMIGA Paula, Wiedergabe in 8bit) und den Player MPEGA.\nWählen sie eine verfügbare Soundkarte oder Amigaaudio.")
  48.  
  49. (set DelfinaPrompt      "Wählen sie den gewünschten Wiedergabemodus für Ihre Soundkarte:")
  50. (set MelodyPrompt       "Wählen sie den gewünschten Layer3 Wiedergabemodus für die Melody:")
  51. (set AmigaPrompt          "Wählen sie den gewünschten Wiedergabemodus aus:")
  52. (set AHIPrompt          "Tragen sie die Mode ID in das Feld ein: (Siehe Hilfe)")
  53. (set AHIHelp          "\nDie Mode ID des für ihre Soundkarte/ Amiga Paula gewählten Mode Settings erfahren sie in dem AHI Preferences-Programm. Übernehmen sie den Wert aus dem Feld Mode ID, ohne das führende 0x00.\n\nDer aktuelle Eintrag dient als ein Beispiel, überschreiben sie die abweichenden Ziffern.\n\nWenn sie alle Einträge im Feld löschen, öffnet MPEGA immer einen Auswahlrequester.")
  54.  
  55. (set MPEG_1Prompt       "mpega Konfiguration:\nWählen Sie die mögliche Ausgabequalität, je nach CPU-Typ.\nBei Wiedergabe Problemen die niedrigere Qualität auswählen.")
  56. (set MPEG_2Prompt       "mpega Konfiguration:\nWählen Sie die Ausgabefrequenz.\nNormal ist nicht möglich bei PAL/NTSC-Bildschirmmode !")
  57. (set MPEG_3Prompt       "mpega Konfiguration:\nWählen Sie die Prozess Priorität für den MPEGA Audioplayer.")
  58.  
  59. )
  60.  
  61. ;******************************************************************************************************
  62. ; english
  63.  
  64. (
  65. (set PrefsPrompt        "Welcome to the Configurations-Utilitie for the MPEG Audio Layer 2&3 Players (Scriptes for DOpus5 & Amigaguide).\n\nSelect your Soundcard, and the Paths to Players and Tools.")
  66. (set PlayHifiPrompt     "\nI found old settings for PlayMP2.dopus5 & PlayerMP2.dopus5.\n\nFor new Player-Setup select the No gadget, or Yes for Abort.")
  67.  
  68. (set MPEGPlayPrompt     "MPEG Play over Soundcards Melody, Peggyplus, CD32/FMV needed MPEGPlay by Thorsten Hansen. Please select the Program Drawer!")
  69. (set MPEGPlayERROR      "\n'MPEGPlay' is not installed or error to path !\n\nSelect 'yes' for default or 'no' for repeat.\n\nDefault: ")
  70.  
  71. (set PlayMPEGAPrompt     "MPEG Play over Amigaaudio and AHI sound system V4.14+ needed MPEGA V3.0+ by Stephane TAVENARD. Please select the Drawer and the MPEGA File for your System.")
  72. (set PlayMPEGAERROR      "\n'mpega' is not installed or error to path !\n\nSelect 'yes' for standard \"C:mpega\" or 'no' for repeat.")
  73.  
  74. (set BREAKPrompt        "Abort to Play needed the Tool BreakName (©1994 by Kai Iske, Public Domain). Please select the Drawer !")
  75. (set BREAKERROR         "\n'BreakName' is not installed or error to path !\n\nSelect 'yes' for standard \"C:BreakName\" or 'no' for repeat.")
  76.  
  77. (set PlayerPrompt       "Please select your Soundcard (See Help).")
  78. (set PlayerHelp         (cat 
  79.             "\nMPEG-Cards (Layer 2): Melody, Peggyplus, CD32/FMV.\nCD32 and Peggy-Plus MPEGPlay needed the Player MPEGPlay  by Thorsten Hansen.\n\nLayer 3 (Melody, Soundcards, Amiga-Paula) needed MPEGA V3.0+ by Stephane TAVENARD and AHI V4.14+ by Martin Blom.\n\n"
  80.             "AHI:\nAHI is a retargetable audio systems that can be used with both the built-in sound chip (Paula) and several sound cards. Actual is version 4.14 !"
  81.     ))
  82. (set #t_oldinstaller    (cat
  83.             " You have an old version of the Installer. I'll probably"
  84.             " need version 43.3 or greater. You can continue anyway"
  85.             " but there is no guarantee it will work as it's supposed"
  86.             " to do.\n"
  87.             " Do you wish to continue anyway?"
  88.     ))
  89. (set #t_oldinstallerhelp (cat
  90.             " The version of Installer you use is too old. You can"
  91.             " find a more recent version on the Internet, for example"
  92.             " on Aminet, in the util/misc directory. The current"
  93.             " file name is \"Installer-43_3.lha\":\n"
  94.             " <URL:ftp://ftp.germany.aminet.org/pub/aminet/util/misc/Installer-43_3.lha"
  95.     ))
  96.  
  97. (set PlayerL3Prompt     "Please select your Soundcard for Layer3 (See Help).")
  98. (set PlayerL3Help       "\nLayer 3 (Soundcards, AMIGA AHI) needed MPEGA by Stephane TAVENARD and AHI-Drivers by Martin Blom.\nAMIGA Paula needed MPEGA.")
  99.  
  100. (set DelfinaPrompt      "Select Mode for Your Soundcard:")
  101. (set MelodyPrompt       "Select Layer3 Mode for Your Melody Card:")
  102. (set AmigaPrompt          "Select your Mode:")
  103. (set AHIPrompt          "Specify the MODE ID of your AHI driver (See Help):")
  104. (set AHIHelp          "\nSee AHI Preferences field Mode ID, cut 0x00.")
  105.  
  106. (set MPEG_1Prompt       "mpega-setup:\nDefines the decoding quality, and also the decoding speed.\nSlow CPU users, select Low quality ...")
  107. (set MPEG_2Prompt       "mpega-setup:\nDefines the output decoding frequency. You can only use Normal mode if you have a screenmode >15kHz and a fast CPU !")
  108. (set MPEG_3Prompt       "mpega-setup:\nSelect Priority for MPEGA.")
  109. ))
  110.  
  111. ;***************************************************************************
  112. ;PlayerMP2.prefs
  113. ;***************************************************************************
  114.  
  115. (if (= Quark 31) (welcome) )
  116. (set @default-dest "ENVARC:PlayerMP2.prefs")
  117.  
  118. (if (< @installer-version (+ (* 43 65536) 3))
  119. (
  120.     (if (not (askbool
  121.         (prompt #t_oldinstaller)
  122.         (help #t_oldinstallerhelp)
  123.     ))
  124.     (
  125.         (abort (cat "\n\n" #t_oldinstallerhelp))
  126.     ))
  127. ))
  128.  
  129. (message #intro1 "\n\n" Prefsprompt)
  130.  
  131. (if (exists ("ENVARC:PlayerMP2.prefs") (noreq))
  132.          (if (askbool
  133.              (prompt PlayHifiPrompt)
  134.              (help " ")
  135.              (default 1))
  136.              (exit))    
  137. )
  138.  
  139. (set KARTE 4)
  140.  
  141. (if (= 1 (exists "DEVS:ahi.device" (noreq)))
  142.     (set KARTE 8))
  143. (if (= 1 (exists "DEVS:mpeg.device" (noreq)))
  144.     (set KARTE 1))
  145. (if (= 1 (exists "DEVS:peggympeg.device" (noreq)))
  146.     (set KARTE 3))
  147. (if (= 1 (exists "DEVS:melodympeg.device" (noreq)))
  148.     (set KARTE 0))
  149.  
  150. (set CPUVERS (DATABASE "cpu"))
  151.  
  152. (set PLAYER (askchoice
  153.     (prompt PlayerPrompt)
  154.     (help PlayerHelp)
  155.     (choices "MELODY (Layer2 & AHI Layer3)" "CD32/FMV" "PEGGY-PLUS MPEGPlay" "PEGGY-PLUS Peggyplayer" "AMIGA (PAULA)" "DELFINA (AHI)" "TOCCATA (AHI)" "PRELUDE (AHI)" "AMIGA (AHI audio system)" "Other AHI audio system driver")
  156.     (default KARTE)
  157.  ))
  158.  
  159. (set PLAYERL3 6)
  160. (set KARTE 0)
  161.  
  162. (if (= 1 (exists "DEVS:ahi.device" (noreq)))
  163.     (set KARTE 4))
  164.  
  165. (if (AND (>= PLAYER 1) (<= PLAYER 3))
  166.  
  167.   (set PLAYERL3 (askchoice
  168.     (prompt PlayerL3Prompt)
  169.     (help PlayerL3Help)
  170.     (choices "AMIGA (PAULA)" "DELFINA (AHI)" "TOCCATA (AHI)" "PRELUDE (AHI)" "AMIGA (AHI audio system)" "Other AHI audio system driver")
  171.     (default KARTE)
  172.  ))
  173. )
  174.  
  175. (set PLAYNAME (select PLAYER "MELODY" "CD32" "PEGGYMELODY" "PEGGYPLAYER" "MPEGA" "MPEGA" "MPEGA" "MPEGA" "MPEGA" "MPEGA"))
  176. (set MPEGASTRING " -T -f0 -d1 -q2 ")
  177. (set MPEGPRIO 0)
  178.  
  179. (if (= PLAYER 0) 
  180.     ((set MPEGAOPT (askchoice
  181.     (prompt MelodyPrompt)
  182.     (help @askchoice-help)
  183.     (choices "MELODY: 16bit Mono" "MELODY: 16bit Stereo" "MELODY: 16bit Stereo++" "MELODY: Fast 16bit Mono" "MELODY: Fast 16bit Stereo" "MELODY: Fast 16bit Stereo++")
  184.     (default 4)
  185.         ))
  186.     (set MPEGASTRING (cat " -T -I" (select MPEGAOPT "060005" "060003" "060001" "060006" "060004" "060002")))
  187. ))
  188.  
  189. (if (OR (= PLAYER 5) (= PLAYERL3 1))
  190.     ((set MPEGAOPT (askchoice
  191.     (prompt DelfinaPrompt)
  192.     (help @askchoice-help)
  193.     (choices "DELFINA: 16bit Mono" "DELFINA: 16bit stereo++" "DELFINA: AnyFreq 16bit mono" "DELFINA: AnyFreq 16bit Stereo++" "DELFINA: Fast 16bit mono" "DELFINA: Fast 16bit Stereo++" "DELFINA: Fast AnyFreq 16bit mono" "DELFINA: Fast AnyFreq 16bit stereo++")
  194.     (default 5)
  195.     ))
  196.     (set MPEGASTRING (cat " -T -I" (select MPEGAOPT "0100007" "0100003" "0100005" "0100001" "0100008" "0100004" "0100006" "0100002")))
  197. ))
  198.  
  199. (if (OR (= PLAYER 6) (= PLAYERL3 2))
  200.     ((set MPEGAOPT (askchoice
  201.     (prompt DelfinaPrompt)
  202.     (help @askchoice-help)
  203.     (choices "TOCCATA: 16bit Mono" "TOCCATA: 16bit Stereo" "TOCCATA: 16bit Stereo++" "TOCCATA: Fast 16bit Mono" "TOCCATA: Fast 16bit Stereo" "TOCCATA: Fast 16bit Stereo++" "TOCCATA: Hifi 16bit Mono" "TOCCATA: Hifi 16bit Stereo" "TOCCATA: Hifi 16bit Stereo++")
  204.     (default 4)
  205.         ))
  206.     (set MPEGASTRING (cat " -T -I" (select MPEGAOPT "0A0005" "0A0003" "0A0001" "0A0006" "0A0004" "0A0002" "0A0009" "0A0008" "0A0007")))
  207. ))
  208.  
  209.  
  210. (if (OR (= PLAYER 7) (= PLAYERL3 3))
  211.     ((set MPEGAOPT (askchoice
  212.     (prompt DelfinaPrompt)
  213.     (help @askchoice-help)
  214.     (choices "PRELUDE: 16bit Stereo" "PRELUDE: 16bit Stereo++" "PRELUDE: 16bit Stereo realtime" "PRELUDE: 16bit Stereo++ realtime")
  215.     (default 2)
  216.         ))
  217.     (set MPEGASTRING (cat " -T -I" (select MPEGAOPT "0C0001" "0C0002" "0C0003" "0C0004")))
  218. ))
  219.  
  220. (set CPUFLAG 0)
  221. (if (= CPUVERS "68040")
  222.     (set CPUFLAG 1)
  223. )
  224. (if (= CPUVERS "68060")
  225.     (set CPUFLAG 2)
  226. )
  227. (set CPUNFLAG (- 2 CPUFLAG)
  228. )
  229.  
  230. (if (OR (= PLAYER 8) (= PLAYERL3 4))
  231.     (
  232.     (set FLAG_3 (askchoice
  233.     (prompt MPEG_1Prompt)
  234.     (help @askchoice-help)
  235.     (choices "Low (68020/030)" "Medium (68040)" "High (68060)")
  236.     (default CPUFLAG)
  237.  ))
  238.  
  239.     (set FLAG_4 (askchoice
  240.     (prompt MPEG_2Prompt)
  241.     (help @askchoice-help)
  242.     (choices "Normal (44100Hz)" "1/2 (22050Hz)" "1/4 (11025Hz)")
  243.     (default CPUNFLAG)
  244.  ))
  245.  
  246.  (set MPEGAQUAL (select FLAG_3 1 2 4))
  247.  (set MPEGADIV (select FLAG_4 1 2 4))
  248.  
  249.     (set MPEGAOPT (askchoice
  250.     (prompt AmigaPrompt)
  251.     (help @askchoice-help)
  252.     (choices "PAULA: 14bit Mono" "PAULA: 14bit Stereo" "PAULA: 14bit Stereo++" "PAULA: 8bit Mono" "PAULA: 8bit Stereo" "PAULA: 8bit Stereo++" "PAULA: Fast 14bit Mono calibrated" "PAULA: Fast 14bit Stereo calibrated" "PAULA: 14bit Stereo++ calibrated" "PAULA: Fast 8bit Mono" "PAULA: Fast 8bit Stereo" "PAULA: Fast 8bit Stereo++" 
  253.          "PAULA: Hifi 14bit Mono calibrated" "PAULA: Hifi 14bit Stereo calibrated" "PAULA: Hifi Stereo++ calibrated" "PAULA: Hifi 8bit Mono" "PAULA: Hifi 8bit Stereo" "PAULA: Hifi 8bit Stereo+")
  254.     (default 1)
  255.      ))
  256.     (set MPEGASTRING (cat " -T -f0 -d" MPEGADIV " -q" MPEGAQUAL " -I" (select MPEGAOPT "020005" "020003" "020001" "02000B" "020009" "020007" "020006" "020004" "020002" "02000C" "02000A" "020008" "02000F" "02000E" "02000D" "020012" "020011" "020010")))
  257. ))
  258.  
  259. (if (OR (= PLAYER 9) (= PLAYERL3 5))
  260.     (set MPEGASTRING (cat " -T -I"
  261.     (askstring
  262.     (prompt AHIPrompt)
  263.     (help AHIhelp)
  264.     (default "02000A")
  265.  )))
  266. )
  267.  
  268. (if (OR (= PLAYER 4) (= PLAYERL3 0))
  269.     (
  270.     (set FLAG_3 (askchoice
  271.     (prompt MPEG_1Prompt)
  272.     (help @askchoice-help)
  273.     (choices "Low (68020/30)" "Medium (68040)" "High (68060)")
  274.     (default CPUFLAG)
  275.  ))
  276.  
  277.     (set FLAG_4 (askchoice
  278.     (prompt MPEG_2Prompt)
  279.     (help @askchoice-help)
  280.     (choices "Normal (44100Hz)" "1/2 (22050Hz)" "1/4 (11025Hz)")
  281.     (default CPUNFLAG)
  282.  ))
  283.  
  284.     (set FLAG_5 (askchoice
  285.     (prompt MPEG_3Prompt)
  286.     (help @askchoice-help)
  287.     (choices "0" "1" "2" "5")
  288.     (default 1)
  289.  ))
  290.  
  291.  (set MPEGAQUAL (select FLAG_3 1 2 4))
  292.  (set MPEGADIV (select FLAG_4 1 2 4))
  293.  (set MPEGAPRIO (select FLAG_5 0 1 2 5))
  294.  
  295.  (set MPEGASTRING (cat  " -T -f0 -d" MPEGADIV " -q" MPEGAQUAL))
  296. ))
  297.  
  298. (set MPEGPlayDir "C:")
  299. (set BREAKDir "C:")
  300.  
  301. (if (AND (>= PLAYER 0) (<= PLAYER 2))
  302.  
  303.     (if (<> 1 (exists (tackon MPEGPlayDir "MPEGPlay") (noreq)))
  304.      (until (= FLAG_0 1)
  305.            ((set MPEGPlayDir (askdir
  306.             (prompt MPEGPlayPrompt)
  307.             (help    @askdir-help)
  308.             (default "SYS:")
  309.                 ))
  310.            (if (<> 1 (exists (tackon MPEGPlayDir "MPEGPlay") (noreq)))
  311.              (if (askbool
  312.                  (prompt MPEGPlayERROR)
  313.                  (help " "))
  314.                  ((set FLAG_0 1)
  315.                  (set MPEGPlayDir "C:")))
  316.                  (set FLAG_0 1))
  317.            ))
  318.     )             
  319. )
  320.  
  321.  
  322. (set DEFMPEGA "MPEGA.020")
  323. (if (OR (= CPUVERS "68040") (= CPUVERS "68060"))
  324.     (set DEFMPEGA "MPEGA.040")
  325. )
  326.  
  327. (set PlayMPEGA (tackon "C:" DEFMPEGA))
  328.  
  329. (if (<> 1 (exists PlayMPEGA (noreq)))
  330.     (until (= FLAG_1 1)
  331.            ((set PlayMPEGA (askfile
  332.             (prompt PlayMPEGAPrompt)
  333.             (help    @askfile-help)
  334.             (default DEFMPEGA)
  335.                 ))
  336.            (if (<> 1 (exists (PlayMPEGA) (noreq)))
  337.              (if (askbool
  338.                  (prompt (cat PlayMPEGAERROR (tackon "C:" DEFMPEGA)))
  339.                  (help " "))
  340.              ((set FLAG_1 1)
  341.                  (set PlayMPEGA (tackon "C:" DEFMPEGA))
  342.          ))
  343.                  (set FLAG_1 1))
  344.            ))
  345. )
  346.  
  347. (if (OR (= 2 @user-level) (<> 1 (exists (tackon BREAKDir "BreakName") (noreq))))
  348.      (until (= FLAG_2 1)
  349.            ((set BREAKDir (askdir
  350.             (prompt BREAKPrompt)
  351.             (help    @askdir-help)
  352.             (default "SYS:")
  353.                 ))
  354.            (if (<> 1 (exists (tackon BREAKDir "BreakName") (noreq)))
  355.              (if (askbool
  356.                  (prompt BREAKERROR)
  357.                  (help " "))
  358.                  ((set FLAG_2 1)
  359.                  (set BREAKDir "C:")))
  360.                  (set FLAG_2 1))
  361.            ))
  362. )           
  363.  
  364. (if (AND (<> PLAYER 4) (<> PLAYERL3 0))
  365.     ((set FLAG_5 (askchoice
  366.     (prompt MPEG_3Prompt)
  367.     (help @askchoice-help)
  368.     (choices "0" "1" "2" "5")
  369.     (default 0)
  370.  ))
  371.  
  372.  (set MPEGAPRIO (select FLAG_5 0 1 2 5)))
  373. )
  374.  
  375. (textfile 
  376.     (dest "ENVARC:PlayerMP2.prefs")
  377.         (append ";$VER: Setup for PlayerMP2.rexx/dopus5 2.1\n" (tackon MPEGPlayDir "MPEGPlay") "\n" PlayMPEGA "\n" (tackon BREAKDir "BreakNAME") "\n" (cat  "-p" MPEGAPRIO MPEGASTRING) "\n" PLAYNAME "\n")
  378.  )
  379. (textfile 
  380.     (dest "ENV:PlayerMP2.prefs")
  381.         (append ";$VER: Setup for PlayerMP2.rexx/dopus5 2.1\n" (tackon MPEGPlayDir "MPEGPlay") "\n" PlayMPEGA "\n" (tackon BREAKDir "BreakNAME") "\n" (cat  "-p" MPEGAPRIO MPEGASTRING) "\n" PLAYNAME "\n")
  382. )
  383.  
  384. ; Delete Old MPEG-Filetype
  385. (if (exists ("DOpus5:Filetypes/Compressed sound, MPEG") (noreq))
  386.     (delete "DOpus5:Filetypes/Compressed sound, MPEG"
  387.        (optional "force")
  388.     )
  389. )
  390.  
  391. (exit)
  392.